最小限のコードで試したらBreakでちゃんと止まったんだが
Sub a()
Do
Loop
End Sub