Если я правильно понял, возможно, вы могли бы сделать это:
Sub loop120()
Dim i As Integer
i = 0
Do
i = i + 1
If i = 110 Then
'Code goes here for when the loop has executed 120 times
MsgBox "This is the 110th loop"
'<---- stick a break point on your next line of code
End If
Loop
End Sub
Таким образом, вы получите окно сообщения с указанием 110-го цикла. Когда вы нажмете «ОК», ваш код достигнет точки останова, и вы сможете пройти через нее.