Do Loop Schleife wird zur Endlosschleife

Sub test
Dim a As Integer
Dim i As Integer
Dim s As Integer
a = 2
i = 1
For i = 1 To 20
Cells(i, 1) = i
Next i
For i = 1 To 20
Do
s = Cells(i, 1) * a
Cells(i, 2) = s
Loop Until s kleiner 18
Next i
End Sub