Dos primeros caracteres en negrita

Hola necesito por favor una macro que me ponga en negrita solo dos dos primeros caracteres de cada celda en la misma columna, en cada cuatro seguidas y dejando una si hacer nada es decir poner en negrita los dos primeros caracteres de las celdas D3,D4,D5,D6 - D8,D9,D10,D11,- D13,D14,D15,D16, - y asi toda la columna siempre que encuentre caracteres yo estoy utilizando esta macro:

Sub negrita_dos_letras()
Do While ActiveCell.Value <> ""
ActiveCell.Characters(Start:=1, Length:=2).Font.Bold = True
'ActiveCell.Offset(5, 0).Select
Loop
End Sub

pero solo me pone en negrita una fila cada cinco y es precisamente esa donde no debo de poner en negrita necesito cuatro filas en negrita, los dos primeros caracteres y una fila sin hacer nada y otras cuatro filas los dos primeros caracteres en negrita y otra fila sin hacer nada y asi hasta que no haya caracteres que cambiar.

pero no se como cambiar esta macro para que actúe asi.

gracias