Fortran (GFortran) -cpp, 306 bytes

#define w' on the wall'
#define p trim(x),trim(b)
character(16)a,b,x
a=' bottles of beer';b=a
do i=99,1,-1
write(x,'(i0)')i
if(i<2)b=' bottle of beer'
if(i<99)print*,'Take one down, pass it around, ',p,w,'.',new_line(x)
print*,p,w,', ',p,'.'
enddo
print*,'Go to the store and buy some more, 99',a,w,'.'
end

Try it online!

The -cpp option allows me to #define macros.