We can exit a For...Next or For Each...Next loop using an Exit For statement.

Exir For transfers control to the statement following the Next statement.

In the example below, we loop through a range in column A. We square the value for each cell until we reach the cell with value 6 when we exit the For loop.

Sub ExitForDemo()

    Dim i As Integer
    Dim LastRow As Integer

    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    For i = 1 To LastRow
        If Cells(i, 1).Value = 6 Then
            Exit For
        Else
            Cells(i, 1).Value = Cells(i, 1).Value * Cells(i, 1).Value
        End If
    Next i

End Sub