Inserting rows with a macro

I have a column of text entries. If an entry is different from the entry in the row directly above it, I want to insert two rows. I want to continue down the column doing this until I run out of entries. Here is an example:
a
a
a
b
b
b
c
c
c
should be:
a
a

b
b

c
c

Any suggestions?