Do while loop causes my program to be unresponsive while it loops

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Do While FeederAlive = True

delay = DelayTime()

If delay > 900 Then Go to the complete details ...