something like:

Sub deleteem()
intValue = Range("a1").Value
For x = 1 To 100
If Range("a" & x).Value = intValue Then
intCount = intCount + 1
Else
intCount = 0
intValue = Range("a" & x).Value
End If
If intCount > 3 Then
Range("a" & x).Delete
End If
Next x
End Sub