#R, 75 85 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.