Loop funktion i VBA

Jeg har skrevet nedenstående kode.
Den fylder 4 tilfældige tal ind i henholdsvis cell 3,3 og 3,4 og 3,5 og 3,6 som det ses neden for. De må ikke være ens de værdier.
Men min loop funktion kører bare i en uendelighed, hvad gør jeg galt?

Public Sub Nyt_spil()
Dim niveau As Integer, random As Integer

Do

For i = 3 To 6
Cells(3, i).Value = Int((8 * Rnd) + 1)
Next

Loop Until Cells(3, 3) <> Cells(3, 4) And Cells(3, 5) <> Cells(3, 6) _
And Cells(4, 5) <> Cells(4, 6) And Cells(4, 5) <> Cells(5, 6)

End Sub