#R, <s>75</s> <s>85</s> 83 bytes

    cat(x<-c("Hare ","Krishna ","\n")[c(1,2,1:3,2,2,1,1,3)],sub(x[2],"Rama ",x),sep="")

It creates a vector with `Hare `, `Krishna `, and the newline, takes the ones needed, and then repeats it replacing `Krishna ` by `Rama `.

Needed to include the space on every word and `sep=""` because otherwise `cat()` would put a space at the beginning of each line.